home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / edit / me_cd25.zip / MUTT2.ZIP / NEXTFILE.MUT < prev    next >
Text File  |  1992-11-09  |  498b  |  26 lines
  1.   ;; files.mut: sequencally load the files specified on the command line
  2.   ;; If ^U used, tries to load that many files.
  3.   ;; C Durland    Public Domain
  4.  
  5. (small-int nth-file)        ; file to load next
  6.  
  7. (defun
  8.   next-file
  9.   {
  10.     (int n)
  11.  
  12.     (n (arg-prefix))
  13.     (while (>= (-= n 1) 0)
  14.       (if (< nth-file (argc))
  15.     {
  16.       (visit-file (argv nth-file))
  17.       (delete-other-windows)
  18.       (+= nth-file 1)
  19.     }
  20.     { (msg "All files read in.")(done) }
  21.       )
  22.     )
  23.   }
  24.   MAIN { (nth-file 1) }
  25. )
  26.